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“eee | 
§ : Version: *v04-000' 
: Ceeeererertererrereereeeereeeeeeeneeeteeeeeeeeeeeteteeeteeeererereeeeeeeeetes | 
e | 
Ce COPYRIGHT (¢) 1978, 1980, 1982. 1984 BY * 
Ce DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
Ce ALL RIGHTS RESERVED. : | 

10 Ce THIS ie rhe is reealtuee uote A LICENSE AND MAY BE USED AND COPIED * 

11 f+ ONLY IN ACCORDANCE MITH THE TERMS SUCH LICENSE AND WITH THE * 

\§ C* INCLUSION OF ore ABOV ge, PROviD tht THIS SOFTWARE OR ANY OTHER ® 
001 C* COPIES THEREOF MAY NOT PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

0014 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
Bet? eS TRANSFERRED. a 
.d & 
0019 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE o 
bors C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
eth CORPORATION. * 
a 
0021 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
oo ¢ ce SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 8 
® 
0095 S cdieianednibeonmiiiedneneateiieebeniddinnmnencesl ieeeeniannsaneianiiana 
0039 
pose c Author Brian Porter Creation Date 31-MAY-1981 
$080 
a 
0038 subroutine pcilit (lun) 
0035 c++ 
ite) c Functional description: 
c 
0038 C This routine displays error log entries made by the 
ste c PCL11-B8 transmitter driver. 
c 
00461 ¢ Modified by: 
¢ 
bo2$ C v03-003 SARO229 Sharon A, Reynolds, 28-Mar-1984 
Bes : Changed the call to uCcBSL OWNUIC to ORBSL_OWNER. 
$ C v03-002 SARO090 Sharon A. Reynolds, 20-Jun-1983 
C Changed the carriage control in the ‘format’ statements 
: ; for use with ERF. 

50 C v03-001 SAR0041 Sharon A. Reynolds, 88-Jun-1983 
st ; Removed brief/cryptic support. 
boss c v02-002 BP0002 Brian Porter, 23-NOV-1981 | 
0035 c Minor edit. 

c 

26 C v02-001 BP0001 Brian Porter, 30-SEP-1981 

005 C Corrected call to uba_mapping. | 
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C Added ‘device attention’ support. 


include ‘src$:msghdr.for /nolist' 
include ‘src$:deverr.for /nolist' 


byte 


integer*4 
integer*4 
integert4 
integert4 
integers4 
integer*4 
integer*4 
integer*4 
integer*4 
integer*4 
integer*4 
integer*4 
tiateger*4 


equivalence 
equivaience 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 
equivalence 


integer*4 
integert4 
integer*4 
integer*4 
integer*4 


character*26 


data 
data 
data 
data 
data 
data 
data 


character*l6 
data 
data 


lun 

ter 

tsr 

tsdb 

tsbc 

tsba 

tmar 

tscre 

ucb$w_flagqword 
ucb$l_lt_dpn 
ucb$l_lt_dpr 
ucb$l_lt_fmpr 
ucb$l_lt_pmpr 
ucb$l_devdepend 
(emb$l_dv_regsav(0),tcr) 
(emb$l_dv_regsav(i),tsr) 


(emb$l_dv_regsav(2),tsdb) 
(emb$l_dv_regsav(5),tsbc) 


Cemb$l_dv_regsav(9) ,ucb$l_Lt 
(emb$\-dv-regsav (105 
Cemb$l 


compressc 

compress4 
destination_code 
response_bits 
selected_map_register 


vitcr(0:8) 


vitcr(0) /*START reewen ss hoee 
vitcr(1) /*TRANSMITTE eM fe tod 
viter ses /*INHIBIT ADDRESS INCREMENT®'/ 
viter(3) /*DATA OUTPUT READY*'/ 
viter(4) /*EXTENDED BUS ADDRESS ey 
vitcer(5) /*EXTENDED BUS ADDRESS 17*'/ 
viter ts: /* INTERRUPT ENABLE®* / 
vitcr(7) /*READ SILO®'/ 

v ter (i 9s15) 

vetcr(13) /*SEND WORD*'/ 

vetcr(14) /*TRANSMITTER NPRe'/ 
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8 it, data v2tcr(15) /*RETRY IF BUSY*'/ | ; 
75 character*22 vitsr(4:15) | 
8 6 data vitsr(4) /*TDM BUS BUSY*'/ 
data vitsr(5) 7*SOFTWARE REJECT®*/ 
0278 data vitsr (6) /*BUSY®'/ | 0 
0279 data vitsr(7) /"SUCCESSFUL TRANSFER®'/ | Q3 
0280 data vitsr(g) /"DATA INPUT READY®'/ 83 
0281 data vitsr(9) /"DATA OVERRUN®'/ i 
0 Be data vitsr(10) /"TIMEOUT®' / ) 
028 data vitsr(11) / "MASTER DOWNS */ 03 
0284 data vitse(l@) /* TRANSMIS iON ERROR®*'/ 8 
0285 data vitsr(13) /*MEMORY OVERFLOW*'/ 
Oe86 date vitsr(14) /"NON“EXISTENT LOCATION®'/ 8 
0287 data vitsr(15) /*ERROR*'/ oi 
0289 character*29 = response_a(0:3) : Q3 
0290 data response_a(Q) /' TRANSMITTER ERROR/OFF=-LINE®'/ + 
os33 data response_a(1) /"NULL CY¥CLE®'/ 0 
0 3 data response_a(¢) /*VALID WORD / RC ON DATA LINES*'/ e 
OS0z data response_a(3) /"LAST CRC ON DATA LINES*'/ 03 
$598 character*28 response_b(0:5) 0: 
0296 data resporse_b(0)  /*RECEIVER ERROR/OFF-LINE®'/ 03 
0297 data resoonse_b(1) /"NULL CYCLE®' 03 
0298 data respense_b(¢) /*CHECK FAILURE PREVIOUS DATA®'/ 03 
1344 data response_b(3) /*ACKNOWLEDGE CRC OR DATA®'/ 83 
0301 Q3 
030 c++ 03 
9305 c The format for the pcl11b transmitter buffer is as follows. 83 
c 
0305 Cc $e re wee wen ce ns ncerewee Oe ewe ewer ome won 03 
H r ; 
Bane : Peewee nen enn meen alt esac o enw ene we 03 
0308 ¢ : tsr : 03 
0309 Cc Fer en en een nee seen ee ereeeeoeaeooeooeoeoaooees + 03 
0310 c : tsdb : 83 
0 1 1 c ter ecw er ere ee see Bone Eee meen moe www ee + 5 | 
0312 ¢ ; tsbc " Bi 
031 Cc toeeeeeceececen Se Oe OB OOOO OOM me ee + ; 
0314 C : tsba H Bi 
031 5 c ees eee een eee emer eee eee ee ewe ee oon} 4 
16 ¢ : tmmr ' 5 
1 Cc ewe eee en. wer ee sre er eww ee wmm eres wee oe eee t 4 
O38 c tserc ; 
31 9 Cc dee eer eee mes em ee meme e ree eee meee eo eee ee + 1 
359 c : ucb$w_flagword : B 
308 c H ucb$b_lt_retry, ucb$b_lt_maxtry : | i 
Cc emer em ee = (SS me ee ee em me ee eee 7 
4 Cc : ucb$w_\t_dpn H 
$2 4 EN ane nes wee ne eee ee ee oe + | : 
; $ c H ucb$l_lt_dpr i i 
Cc Bere swe noee oe eneaeaowsec (Sewer tieecoswaooweoe >| 
, t- : ucb$l_Lt_fmpr ' : 
0338 Cc goer wre er eee ene ewe ewer oer eee owe we eee eee + i 
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call fretof (lun) 
call dhead? (lun,"UBA PCL11 (TRANSMITTER) ') 
call Linchk (lun,2) 


write(lun,10) ‘TCR',ter 
format(/' ',t8,a,t24,28.4) 


call output (lun,tcr,vitcr,0,0,7,'0') 
destination_code = Lib$Sextzv (8,5,tcr) 
call Linchk (lun,1) 

write(lun,15) destination_code 

format(' ',t40,"DESTINATION ADDRESS ' 

1 i<compress4 (dest ination_code)>,'.'S 
call output (lun,tcr,v2tcer,13,13,15,'0") 
cali Linchk (lun,1) 


write(lun,20) ‘TSR’, tsr 
format(' *,t8,a,t24,28.4) 


iresponse_bits = LibSextzv (0,2,tsr) 
call Linchk (lun,1) 


write(lun,25) response_a(response_bits) 
format(' *,t40,a<compressc (response_a(responsé_bits))>) 


response_bits = Lib$Sextzv (2,2,tsr) 
call Linchk (lun,1) 


write(lun, 30) response_b(response_bits) 
format(* *,t40,a<compressc (response_b(response_bits))>) 


call output (lun,tsr.,vitsr.4,4,15,'0") 
call Linchk (lun,1) 
write(lun,20) ‘TSDB',tsdb 
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call Linchk (lun,1) 

write(lun,20) "TSBC',tsbe | 

call Linchk (lun,1) | 

write(lun,20) ‘TSBA',tsba 

call calc_map (lun,4,tcr,tsba) | 

call Linchk (lun,1) 

write(lun,20) "TMMR',tmmr 

call Linchk (lun,1) 

write(iun,20) ‘TSCRC',tscre 

if Cemb$w_hd_entry .ne. 98) then 
| 


See OOOO OCS 
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WAU 


if (ucb$l_lt_dpn .ne. 0) then 


call uba_datapath (lun,ucb$l_lt_dpn,ucb$l_lt_dpr) 
endif 


call calc_map2 (4,tcr,tsba,selected_map_register) 
cail uba_mapping (lun,selected_map_register,ucb$l_lt_fmpr) 


1 ibsextey (16,16,emb$l_dv_iosb1) .gt. 512 
1 selected_mep_register ene. 0 
) then 
cath ea_sepping (Lun, (selected_map_register-1) ,ucb$l_lt_pmpr) 
endif 
call Linchk (Llun,1) 


write(lun,35) 
format(" *,:) 


call orb$i_owner (lun,emb$l_dv_ownuic) 


oO 
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call ucb$l_char (lun,emb$l_dv_char) 


None ee ed ed ed eed eed 
ww 


call ucb$w_sts (lun,emb$w_dv_sts) 


& 


call ucb$l_opcnt (lun,emb$l_dv_opcnt) 

call ucb$w_errcnt (lun,emb$w_dv_errcnt) 

call Linchk (lun,1) 
write(lun,40) "UCBSW_FLAGWORD' ,ucb$w_flagword | 
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40 format(’ ',t8,a,t28,24.4) 


45 
beeg call Linchk (lun,1) 

48 write(lun,45) "UCBSL_DEVDEPEND’ ,ucb$l_devdepend 
i 45 format(’ ',t8,a.t to5B.8) age 
ott if (emb$w_hd_entry .ne. 98) then 
bce call Linchk (lun,1) 

0454 

0455 write(lun,35) 

0456 

ot 14 call pcllit.qio (lun,emb$w_dv_ func) 
Fe call irp$Sw bent (Lun, emb$w_dv_bcnt) 
peel call irp$Sw_boff (lun,emb$w_dv_boff) 
Oce§ call irp$l_pid (lun,emb$l_dv_raqpid) 
0465 call irp$q_iosb (lun,emb$l_dv_iosb1) 
0466 endif 

0467 

0468 return 

0469 End 


PROGRAM SECTIONS 
Name Bytes Attributes 


CODE 1287 PIC CON REL LCL SHR EXE RD NOWRT LONG 

1 SPDATA 2 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ $LOCAL 14 $ PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 


Total Space Allocated 3468 


ENTRY POINTS 
Add:ess Type Name 


0-00000000 PCLI1T 
VARIABLES 
Address Type Name Address Type Name 


-00000308 I*4 DESTINATION CODE -0000001C L*1 EMBSB_DV_CLASS 
10 Lei EMB$B_DV_ERTCNT ~00000011 Ll EMBSB-DV-ERTMAX 
3E Lei EMBSB~DV~NAMLNG -0000005A Ls] EMBSB_DV"SLAVE 

-0000001D L*1 EMBSB~DV~TYPE 00000036 [4 EMBSL“DV7CH 


8 
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EMBSL_DV_10SB1 - 16 1*4 EMBSL_DV_10SB2 
EMBSL-DV-MEDIA - 1*4 EMBSL“DV-NUMREG 
EMBSL~DV-OPCNT - ie6 EMBSL-DV~OWNU 
EMBSL_DV-ROPID - +4 EMBSL-HD-SID 
EMBS$T—DV—NAME - 1*2 EMBSW-DV-BCNT 
EMBSW~DV~BOF F - C [#2 EMBSWTDV“ERRCNT 
EMBSW~DV—FUNC - A I*2 EMBSW7DV“STS 
EMBSW-DV-UNIT - 4 I*2 EMBSWUHD-EN 
EMBSW HD ~ERRSEQ AP- 4@ L*1 LUN 

RESPONSE BITS > 2 Ie4 SEL 

TCR - Ie, TMM 

TSBA - —E I*4 TSB 

TSCRC - A Ie4 TSD 

TSR ~00000086 I*4 UCBSL_DEVDEPEND 
UCBSL_LT_DPN -9900007A I*4 UCBSL-LT_DPR 
UCBSL-LT-FMP -00000082 I*4 UCBSLILT~PMPR 


MPR 
UCBSW_FLAGWORD 
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ARRAYS 
Address Type Name Bytes Dimensions 
-00000000 L*1 EMB 512 (0:511) 
-00000052 I*4 EMBSL_DV_REGSAV 420 (0:104) 
-00000006 I*4 EMBSQ _HD_TIME 8 <? 
wists <3 CHAR RESPORSE-A 116 (0:3) 
=-00000 CHAR RESPONSE _B 112 (0:3) 
sis 4g CHAR VITCR 234 (0:8) 
-0000011A CHAR VITSR 264 (4:15) 
2-O000000EA CHAR V2TCR 48 (13:15) 
LABELS 
Address’ Label Address Label Address’ Label Address’ Label Address’ Label Address’ Label 
1-0000007A 10° 1-00000087 15° 1-000000AC 20° 1-00000088 25' 1-000000C4 30° 1-000000D0 35° 
1-000000D5 40° 1-000000E1 45° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
CALC_MAP CALC_MAP2 1*4 COMPRESS4 I*4 COMPRESSC DHEAD1 FRCTOF 
IRP$C_PID IRP$O_10SB IRP$W_BCNT IRPS$W_BOF F I*4 LIBSEXTZV LINCHK 
ORBSL_OWNER OUTPUT PCL11T_Q10 UBA_DATAPATH UBA_MAPP ING UCBSL_CHAR 
UCBSL_OPCNT UCBSW_ERRCNT uCBSwW_STS 
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Subroutine PCL11T_Q10 (Lun,emb$w_dv_ func) 


include ‘src$:qiocommon.for /nolist' 


byte lun 
integer*2 emb$w_dv_ func 
integer*4 qiocode(0:1,0:63) 


if (qiocode(0,0) .eq. 0) then 
giocode(1,11) = Zloc(io$_writepblk) 
qiocode(1,32) = Zloc(io$_writelblk) 
qiocode(1,35) = Zloc(io$_setmode) 
qiocode(1,39) = Zloc(io$_sensemode) 
do 10,i = 0,63 

qiocode(0,i) = 33 

if (qiocode(1,i) .eq. 0) then 
qiocode(1,i) = Zloc(qio_string) 
endif 

snare 


call irp$w func (lun,emb$w_dv_func, 


1 qiocode(0,ibSextzv(0,6,embSw_dv_func))) 


return 


end 
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PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 126 PIC CON REL LCL SHR 3 RD NOWRT LONG | 
1 SPDATA PIC CON REL LCL _ SHR NOEX RD NOWRT LONG 
g SLOCAL 34 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
QIOCOMMON 1247 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 1929 
ENTRY POINTS 
Address Type Name 
0-00000000 PCL11T_Q10 
VARIABLES 
Address Type Name Address Type Name 
1*2 EMBSW_DV_FUNC 00000200 1*4 | 
CHAR 10$_AB0 -0000034D CHAR IO$_ACCESS 
CHAR I10$~ACPCONTROL ~00000483 CHAR IO$"AVAILABLE 
CHAR 10$_CLEAN -90000369 CHAR 10$_CREATE 
HAR I0$_DEACCESS 00000393 CHAR IO$_DELETE 
CHAR IOS"DIA ~00000065 CHAR IOS"DRVCLR 
CHAR I0$_DSE -000000A9 CHAR IO$"ERASETAPE 
6 CHAR IO$-FORMAT -80000071 CHAR IO$_INITIALIZE 
4 CHAR IO$-LOADMCODE -000003A1 CHAR IO$"MODIFY 
E2 CHAR I0$_MOUNT 00000000 CHAR I0$_NOP 
“OF FSET -QO00000EB CHAR IO$_PACKACK 
QSTOP -QO0003EF CHAR IOS-RDSTATS 
“READCSR -$00081 9 CHAR IO$_READHEAD 
~READLBLK -0000013F CHAR IO$"READPBLK 
“READPRESET 00000195 CHAR IOS"READTRACKD 
~READVBLK “$8 Q045A CHAR I10$_READWTHBUF 
$- READWTHXBUF - 4D CHAR IO$_RECAL 
RELEASE ~000001AB CHAR IO$"REREADN 
~REREADP CA CHAR IOS_RETCENTER 
“REWIND 9 CHAR IO$-REWINDOFF 
“SEARCH 4 CHAR IO$"SEEK 
= SENSE CHAR 9 CHAR I0$-SENSEMODE 
“SETCHAR 00000388 CHAR IO$"SETCLOCK 
~SETCLOCKP DD CHAR IO$"SETMODE 
“SKIPFILE FA CHAR IO$-SKIPRECORD 
~SPACEF ILE Of CHAR 10$-SPACERECORD 
“STARTDATA CHAR I1O$-STARTDATAP | 
“STARTMPROC F CHAR IO$"STARTSPNDL 
“STOP D CHAR IOS"UNLOAD 
“WRI TEBUFNCRC 1E CHAR I1O$S"WRITECHECK | 
“WRITECHECKH FF CHAR IOS-WRITECSR | 
“WRI TEHEAD Ae CHAR 10$"WRITELBLK 
WRI TEMARK 14 CHAR 1O$"WRITEOF 
WRITEPBLK 1€9 CHAR [OS"WRITERET | 
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PCL11T_Q10 


3 yy _ OS_WRITETRACKD 
ios. _WRITEWTHBUF 

ARRAYS 

Address Type Name Bytes Dimensions 

2-00000000 I*4 QI0CODE 512 

LABELS 

Address Label 

+e 10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
IRPS$W_FUNC I*4 LIBSEXTZV 
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0001 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:PCL11T/0BJ=0BJ$:PCL11T MSRC$:PCL11T | 
/CHECK= (NOBOUNDS , OVERFLOW, NOUNDERF LOW) 

/DEBUG=(NOSYMBOL§ TRACEBA atk) 
/STANDARD=(NOSYNT 
/SHOW= (NOPREPROC UMAP) 
/F77 /NOG_FLOATING 714 SOPTIAT TE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 5.84 seconds 
Elapsed Time: 16.06 seconds 
Page Faults: 19¢ 
Dynamic Memory: 19 
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